1st Multimedia Mac Shareware/Multimedia Shareware CD-ROM - BetaCorp.iso/StackToolsƒ/Utilities/Pinpointer/background_2813.xml

Extensible Markup Language | 1992-08-18 | 4.8 KB | 77 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2813</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3143.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_2069.css" />
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>56</left>
            <top>107</top>
            <right>448</right>
            <bottom>273</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>About photocopy</name>
        <script></script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>395</left>
            <top>303</top>
            <right>482</right>
            <bottom>325</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Pinpointer</name>
        <script>on mouseUp
put the number of card fields into theFields
put the number of card buttons into theButtons
put the lineSize into initialLineSize
put the centered into initialCentered
put the textAlign into initialTextAlign
put the filled into initialFilled
put the pattern into initialPattern
put the textFont into initialTextFont
put the textSize into initialTextSize
put the editBkgnd into initialEditBkgnd
set the lineSize to 1
set the centered to false
set the textAlign to center
set the pattern to 1
set the textFont to Monaco
set the textSize to 9
set the textStyle to plain
set the editBkgnd to true
repeat with thePass = 1 to 2
if thePass = 1 then set the filled to true
else set the filled to false
if theFields is not 0 then
repeat with thisField = 1 to theFields
if the visible of card field thisField = true then
choose rectangle tool
get the rectangle of card field thisField
put item one of it into topLeft
put "," & item two of it after topLeft
subtract 1 from item three of it
subtract 1 from item four of it
put item three of it into bottomRight
put "," & item four of it after bottomRight
drag from topLeft to bottomRight
end if
end repeat
end if
if theButtons is not 0 then
repeat with thisButton = 1 to theButtons
if the visible of card button thisButton = true then
get the rectangle of card button thisButton
put item one of it into topLeft
put "," & item two of it after topLeft
subtract 1 from item three of it
subtract 1 from item four of it
put item three of it into bottomRight
put "," & item four of it after bottomRight
if the style of card button thisButton = "roundRect" then
choose round rect tool
else choose rectangle tool
drag from topLeft to bottomRight
end if
end repeat
end if
end repeat
choose text tool
repeat with object = 1 to (theFields + theButtons)
if object ≤ theFields then
if the visible of card field object is true then
get the location of card field object
add 3 to item two of it
click at it
type "Field #" & object
end if
else
if the visible of card button (object - theFields) is true then
put the location of card button (object - theFields) into center
get the style of card button (object - theFields)
if it is not "roundRect" and it is not "checkBox" ¬
and it is not "radioButton" then
subtract 5 from item 2 of center
click at center
type "Button" & return & "#" & (object - theFields)
else
add 3 to item two of center
click at center
type "Button #" & (object - theFields)
end if
end if
end if
end repeat
set the editBkgnd to false
choose browse tool
set the editBkgnd to initialEditBkgnd
set the lineSize to initialLineSize
set the centered to initialCentered
set the textAlign to initialTextAlign
set the filled to initialFilled
set the pattern to initialPattern
set the textFont to initialTextFont
set the textSize to initialTextSize
end mouseUp
</script>
    </part>
    <name></name>
    <script></script>
</background>